<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2 L2</name>
<id>-1</id>
<cardCount>24</cardCount>
<cardID>5246</cardID>
<listID>4302</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>function choice txt, listreturn ListDialog(1, txt, list)end choicefunction choices txt, listreturn ListDialog("AnySelection", txt, list)end choicesfunction ListDialog logic, txt, listput return into CRput Dialoger("!Choice"&CR&"KeyScrollItem 3"¬, txt¬, "userList Chicago,12,"&logic & CR & List¬) into dResultif first word of dResult is "Error:" thenanswer dResult with Cancelexit to HyperCardelseif line 2 of dResult is empty then -- Cancel not clickedget line 3 of dResult -- selected list linesput empty into selectedLinesrepeat with i = 1 to number of items in itput line (item i of it) of list & return after selectedLinesend repeatdelete last char of selectedlinesreturn selectedLinesend ifend ifend ListDialogon closestackdelete menu "keywords"end closestack</script>
